'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 17 October 2011 at 3:10:25 pm'!TestCase subclass: #TestDirecaoNaGrade	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TestDirecaoNaGrade methodsFor: 'as yet unclassified' stamp: 'la 10/17/2011 15:10'!testDirecaoesNaGradeCima	| direcaoCima |	direcaoCima := DirecaoNaGrade direcaoNaGradeDadoDirecaoSymbol: #cima.		self should: [ direcaoCima  = DirecaoNaGradeCima ].	self should: [ direcaoCima 	 taxaDeslocamento = (0@(-1))]. 	self should: [ direcaoCima 	 direcaoEntradaProximaCelula = #baixo].   ! !